Create cursor memo ( Texto M )

m.tempo = sys(3)+'.txt'

SET TEXTMERGE ON
SET TEXTMERGE TO (m.tempo) NOSHOW

\<<avalia.texto>>

SET TEXTMERGE OFF
SET TEXTMERGE TO

append blank

append memo texto from (m.tempo) overwrite

modi memo texto

